home *** CD-ROM | disk | FTP | other *** search
/ PC Answers 1995 December / PC Answers December 1995 (disc errors).iso / mxc / flybox2.dir / 00008_MovieScript.ls < prev    next >
Encoding:
Text File  |  1995-05-02  |  4.7 KB  |  105 lines
  1. global gdirmovie, listMTH, gAnsListNo, gMovNo, gPalNo, FlyList, xPal
  2.  
  3. on startMovie
  4.   if the machineType = 256 then
  5.     openXLib("XPALETTE.dll")
  6.     set xPal to XPALETTE(mnew)
  7.     set gBlack to 255
  8.     set gHighlight to 28
  9.   else
  10.     openXLib("XPALETTE")
  11.     set xPal to fixPalette(mnew, the stageLeft, the stageTop, the stageRight, the stageBottom)
  12.   end if
  13.   set gdirmovie to "FlyBox2.dir"
  14.   set FlyList to list()
  15. end
  16.  
  17. on patchPal
  18.   xPal(mPatchIt)
  19. end
  20.  
  21. on playVid VidNo, SprNo, SprNo2
  22.   set currentMovie to VidNo
  23.   set the castNum of sprite SprNo to SprNo2
  24.   updateStage()
  25.   repeat with i = 1 to 48
  26.     puppetSprite(i, 0)
  27.   end repeat
  28.   set gMovNo to VidNo
  29.   set gPalNo to VidNo + 20
  30.   go(1, "flyBox1.dir")
  31. end
  32.  
  33. on setAnsList
  34.   global listMTH, gAnsListNo
  35.   if gAnsListNo = 1 then
  36.     set listMTH to list("MTH_001.PIC", "10.TXT", "3Stimu.pict", "Stimu.pict", "16.1.TXT", "3roywul.pict", "22.TXT", "3ELK.PICT", "26.TXT")
  37.   end if
  38.   if gAnsListNo = 2 then
  39.     set listMTH to list("MTH_002.PIC", "10.TXT", "3Stimu.pict", "Stimu.pict", "16.1.TXT", "3roywul.pict", "21.TXT", "3ELK.PICT", "26.TXT")
  40.   end if
  41.   if gAnsListNo = 3 then
  42.     set listMTH to list("MTH_003.PIC", "9.TXT", "3kaufst.pict", "kaufst.pict", "14.1.TXT", "3prince.pict", "20.2.TXT", "3hare.pict", "26.TXT")
  43.   end if
  44.   if gAnsListNo = 4 then
  45.     set listMTH to list("MTH_004.PIC", "9.TXT", "3kaufst.pict", "kaufst.pict", "15.1.TXT", "3prince.pict", "21.TXT", "3hare.pict", "26.TXT")
  46.   end if
  47.   if gAnsListNo = 5 then
  48.     set listMTH to list("MTH_005.PIC", "7.TXT", "3roywul.pict", "roywul.pict", "18.1.TXT", "3elk.pict", "23.TXT", "3prince.pict", "26.TXT")
  49.   end if
  50.   if gAnsListNo = 6 then
  51.     set listMTH to list("MTH_006.PIC", "7.TXT", "3roywul.pict", "roywul.pict", "18.1.TXT", "3elk.pict", "23.TXT", "3prince.pict", "26.TXT")
  52.   end if
  53.   if gAnsListNo = 7 then
  54.     set listMTH to list("MTH_007.PIC", "6.TXT", "3ant.pict", "drwnant.pict", "17a.TXT", "3grass.pict", "17.TXT", "3prince.pict", "26.TXT")
  55.   end if
  56.   if gAnsListNo = 8 then
  57.     set listMTH to list("MTH_008.PIC", "6.TXT", "3grass.pict", "GrssHppr.pict", "17.TXT", "3ant.pict", "17a.TXT", "3roywul.pict", "26.TXT")
  58.   end if
  59.   if gAnsListNo = 9 then
  60.     set listMTH to list("MTH_009.PIC", "5.TXT", "3hare.pict", "hare.pict", "16.2.TXT", "3cad.pict", "25.TXT", "3olive.pict", "26.TXT")
  61.   end if
  62.   if gAnsListNo = 10 then
  63.     set listMTH to list("MTH_010.PIC", "4.TXT", "3cad.pict", "cadpupa.pict", "15.2.TXT", "3olive.pict", "21.TXT", "3hare.pict", "26.TXT")
  64.   end if
  65.   if gAnsListNo = 11 then
  66.     set listMTH to list("MTH_011.PIC", "3.TXT", "3elk.pict", "Elk_hair.pict", "16.3.TXT", "3adams.pict", "20.1.TXT", "3roywul.pict", "22.TXT")
  67.   end if
  68.   if gAnsListNo = 12 then
  69.     set listMTH to list("MTH_012.PIC", "3.TXT", "3elk.pict", "Elk_hair.pict", "16.3.TXT", "3adams.pict", "20.1.TXT", "3roywul.pict", "22.TXT")
  70.   end if
  71.   if gAnsListNo = 13 then
  72.     set listMTH to list("MTH_013.PIC", "2.TXT", "3phe.pict", "Phstl.pict", "15.3.TXT", "3hare.pict", "20.3.TXT", "3prince.pict", "22.TXT")
  73.   end if
  74.   if gAnsListNo = 14 then
  75.     set listMTH to list("MTH_014.PIC", "2.TXT", "3phe.pict", "Phstl.pict", "15.3.TXT", "3olive.pict", "21.TXT", "3prince.pict", "22.TXT")
  76.   end if
  77.   if gAnsListNo = 15 then
  78.     set listMTH to list("MTH_015.PIC", "1.TXT", "3adams.pict", "Adams.pict", "16.4.TXT", "3elk.pict", "20.4.TXT", "3roywul.pict", "22.TXT")
  79.   end if
  80.   if gAnsListNo = 16 then
  81.     set listMTH to list("MTH_016.PIC", "1.TXT", "3adams.pict", "Adams.pict", "14.2.TXT", "3elk.pict", "21.TXT", "3roywul.pict", "22.TXT")
  82.   end if
  83.   if gAnsListNo = 17 then
  84.     set listMTH to list("MTH_017.PIC", "8.TXT", "3prince.pict", "Prince1.pict", "18.2.TXT", "3hare.pict", "23.TXT", "3roywul.pict", "22.TXT")
  85.   end if
  86.   if gAnsListNo = 18 then
  87.     set listMTH to list("MTH_018.PIC", "8.TXT", "3prince.pict", "Prince1.pict", "18.2.TXT", "3hare.pict", "23.TXT", "3roywul.pict", "22.TXT")
  88.   end if
  89.   if gAnsListNo = 19 then
  90.     set listMTH to list("MTH_019.PIC", "11.TXT", "3wbugg.pict", "Wbugger.pict", "19.TXT", "3prince.pict", "24.TXT", "3kaufst.pict", "26.TXT")
  91.   end if
  92.   if gAnsListNo = 20 then
  93.     set listMTH to list("MTH_020.PIC", "12.TXT", "3cad.pict", "Cadpupa.pict", "15.2.TXT", "3olive.pict", "21.TXT", "nothing.pict", "0.TXT")
  94.   end if
  95.   if gAnsListNo = 21 then
  96.     set listMTH to list("MTH_021.PIC", "12.TXT", "3cad.pict", "Cadpupa.pict", "15.2.TXT", "3olive.pict", "21.TXT", "nothing.pict", "0.TXT")
  97.   end if
  98.   if gAnsListNo = 22 then
  99.     set listMTH to list("MTH_022.PIC", "13.TXT", "3olive.pict", "olive.pict", "15.4.TXT", "3cad.pict", "21.TXT", "nothing.pict", "0.TXT")
  100.   end if
  101.   if gAnsListNo = 23 then
  102.     set listMTH to list("MTH_023.PIC", "13.TXT", "3olive.pict", "olive.pict", "15.4.TXT", "3cad.pict", "21.TXT", "nothing.pict", "0.TXT")
  103.   end if
  104. end
  105.